program WtSyncNode;

uses
  Forms,
  SysUtils,
  SyncNodeMainUnit in 'SyncNodeMainUnit.pas' {frmSyncNode},
  ProtocolUnit in '..\..\ProtocolUnit.pas',
  TcpFileServer in '..\..\TcpFileServer.pas',
  ConstUnit in '..\..\ConstUnit.pas',
  SyncNodeUnit in 'SyncNodeUnit.pas',
  SyncNodeUtil in '..\..\SyncNodeUtil.pas',
  FunctionUnit in '..\..\FunctionUnit.pas',
  VDUnit in '..\..\VDUnit.pas',
  TcpFileClient in '..\..\TcpFileClient.pas',
  ChooseIpUnit in 'ChooseIpUnit.pas' {frmChooseIp};

{$R *.res}

begin
  if (ParamCount < 1) or (not FindCmdLineSwitch('winteamsystem', ['-', '/', '\'], True)) then
    Exit;

  Application.Initialize;
  Application.CreateForm(TfrmSyncNode, frmSyncNode);
  Application.Run;
end.
